null {22}null null {-16}.
   1 .
   2 .
   3 .CASH REGISTER
   4 .BY JOHN ERIC
   5 .ADAPTED BY 
   6 .RICH TIETJENS
   7 :return 
  10 clear 
  15 FC=0;BC=7
  20 box 0,0,80,80,1
  30 box 0,-30,78,18,3
  40 box 0,-30,76,16,3
  50 box 0,30,78,18,3
  60 box 0,30,76,16,3
  70 box 0,30,74,14,3
  80 for X=-28to 28step 8
  90 for Y=-16to 20step 8
  95 if X>8if X<28goto 120
 100 box X,Y,3,2,3
 110 box X,Y-2,1,4,3
 120 next Y
 130 next X
 200 CY=30;CX=-30;print "$1.25
 210 for Z=0to 2000
 220 if &(22)=16run 
 225 if &(22)=8goto 600
 230 if &(23)=8goto 300
 235 if &(21)=8goto 800
 240 next Z
 250 BC=1
 260 goto 210
 300 .BEGIN
 302 for A=0to 9
 304 clear 
 305 A=Amul 26;B=A+16;T=@(B+8);G=@(B+9)
 307 print "I BOUGHT ",
 310 for Z=Ato A+15;TV=@(Z);next Z
 315 print 
 317 print "WHICH COST ",
 320 for Z=Bto B+7;TV=@(Z);next Z
 325 print 
 330 print "I GIVE YOU $",#1,G,".00 for IT.
 340 print "WHAT DO YOU GIVE ME IN    CHANGE?"
 350 input "DOLLARS?"S
 360 input "HALF-DOLLARS?"H
 370 input "QUARTERS?"Q
 380 input "DIMES?"D
 390 input "NICKELS?"N
 400 input "PENNIES?"P
 410 C=Smul 100+Hmul 50+Qmul 25+Dmul 10+Nmul 5+P
 420 if Gmul 100-C=Tprint "CORRECT CHANGE! THANK YOU!";goto 490
 430 if Gmul 100-C<Tprint "TOO MUCH. YOU OVERPAID ME BY",
 440 if Gmul 100-C>Tprint "NOT ENOUGH. YOU UNDERPAID ME BY",
 450 A=ABS(Gmul 100-C-T)div 100;Y=RM
 460 print " $",;if Aprint #1,A,
 470 print ".",;if Y<10print #1,0,
 480 print #1,Y
 490 for Z=1to 1000;next Z
 500 A=Adiv 26
 510 next A
 520 goto 210
 600 .NEW SHOPPING LIST
 605 input "ITEM #?"A
 610 for Z=Amul 26to Amul 26+15
 620 K=KP
 630 TV=K
 640 if K=31Z=Z-1;goto 660
 650 @(Z)=K
 660 next Z
 662 print 
 665 print "PRICE?"
 670 for Z=Zto Z+7
 680 K=KP;TV=K
 690 if K=31Z=Z-1;goto 710
 700 @(Z)=K
 710 next Z
 715 print 
 720 input T;@(Z)=T
 725 Z=Z+1
 730 input G;@(Z)=G
 740 goto 210
 800 NT=3;clear ;:print 
 805 for A=0to 9;print ".";next A
 810 for A=0to 259;print "@(",#1,A,")=",@(A)
 820 next A;print ":return ";:return 
 830 run 
.
.
.
.
.
.
.
.
.
.
@(0)=65
@(1)=32
@(2)=66
@(3)=65
@(4)=82
@(5)=32
@(6)=79
@(7)=70
@(8)=32
@(9)=83
@(10)=79
@(11)=65
@(12)=80
@(13)=32
@(14)=32
@(15)=32
@(16)=52
@(17)=57
@(18)=32
@(19)=67
@(20)=69
@(21)=78
@(22)=84
@(23)=83
@(24)=49
@(25)=1
@(26)=80
@(27)=65
@(28)=80
@(29)=69
@(30)=82
@(31)=32
@(32)=84
@(33)=79
@(34)=87
@(35)=69
@(36)=76
@(37)=83
@(38)=32
@(39)=32
@(40)=32
@(41)=32
@(42)=55
@(43)=53
@(44)=32
@(45)=67
@(46)=69
@(47)=78
@(48)=84
@(49)=83
@(50)=75
@(51)=1
@(52)=71
@(53)=65
@(54)=76
@(55)=76
@(56)=79
@(57)=78
@(58)=32
@(59)=79
@(60)=70
@(61)=32
@(62)=77
@(63)=73
@(64)=76
@(65)=75
@(66)=32
@(67)=32
@(68)=36
@(69)=49
@(70)=46
@(71)=57
@(72)=52
@(73)=32
@(74)=32
@(75)=32
@(76)=194
@(77)=2
@(78)=65
@(79)=32
@(80)=68
@(81)=79
@(82)=90
@(83)=69
@(84)=78
@(85)=32
@(86)=69
@(87)=71
@(88)=71
@(89)=83
@(90)=32
@(91)=32
@(92)=32
@(93)=32
@(94)=57
@(95)=50
@(96)=32
@(97)=67
@(98)=69
@(99)=78
@(100)=84
@(101)=83
@(102)=92
@(103)=1
@(104)=71
@(105)=82
@(106)=79
@(107)=85
@(108)=78
@(109)=68
@(110)=32
@(111)=66
@(112)=69
@(113)=69
@(114)=70
@(115)=32
@(116)=32
@(117)=32
@(118)=32
@(119)=32
@(120)=36
@(121)=49
@(122)=46
@(123)=53
@(124)=48
@(125)=32
@(126)=32
@(127)=32
@(128)=150
@(129)=2
@(130)=83
@(131)=84
@(132)=69
@(133)=65
@(134)=75
@(135)=32
@(136)=32
@(137)=32
@(138)=32
@(139)=32
@(140)=32
@(141)=32
@(142)=32
@(143)=32
@(144)=32
@(145)=32
@(146)=36
@(147)=51
@(148)=46
@(149)=53
@(150)=48
@(151)=32
@(152)=32
@(153)=32
@(154)=350
@(155)=5
@(156)=67
@(157)=79
@(158)=79
@(159)=75
@(160)=73
@(161)=69
@(162)=83
@(163)=32
@(164)=32
@(165)=32
@(166)=32
@(167)=32
@(168)=32
@(169)=32
@(170)=32
@(171)=32
@(172)=56
@(173)=50
@(174)=32
@(175)=67
@(176)=69
@(177)=78
@(178)=84
@(179)=83
@(180)=82
@(181)=1
@(182)=66
@(183)=65
@(184)=71
@(185)=32
@(186)=79
@(187)=70
@(188)=32
@(189)=70
@(190)=76
@(191)=79
@(192)=85
@(193)=82
@(194)=32
@(195)=32
@(196)=32
@(197)=32
@(198)=36
@(199)=49
@(200)=46
@(201)=50
@(202)=53
@(203)=32
@(204)=32
@(205)=32
@(206)=125
@(207)=5
@(208)=79
@(209)=82
@(210)=65
@(211)=78
@(212)=71
@(213)=69
@(214)=83
@(215)=32
@(216)=32
@(217)=32
@(218)=32
@(219)=32
@(220)=32
@(221)=32
@(222)=32
@(223)=32
@(224)=36
@(225)=49
@(226)=46
@(227)=48
@(228)=51
@(229)=32
@(230)=32
@(231)=32
@(232)=103
@(233)=5
@(234)=66
@(235)=65
@(236)=71
@(237)=32
@(238)=79
@(239)=70
@(240)=32
@(241)=71
@(242)=82
@(243)=79
@(244)=67
@(245)=69
@(246)=82
@(247)=73
@(248)=69
@(249)=83
@(250)=36
@(251)=49
@(252)=56
@(253)=46
@(254)=48
@(255)=55
@(256)=32
@(257)=32
@(258)=1807
@(259)=20
run 
>